home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1993 / Internet Info CD-ROM (Walnut Creek) (1993).iso / networking / ip / ka9q / MacBMsrc.hqx / Mac bm Project / mac_about.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-23  |  6.1 KB  |  376 lines
  1.  
  2. /*
  3. about.c -- a generic "about" box.
  4.  
  5. */ 
  6.  
  7. #define line1 "\pBM Internet Mailer"
  8. #define line2 "\pVersion 871225.33"
  9. #define line3 "\pMacintosh Version 1.0"
  10. #define line4 "\p⌐ Copyright 1988 by Bdale Garbee, N3EUA"
  11. #define line5 "\pAll Rights Reserved"
  12. #define line6 "\pMay only be used for non-commercial purposes."
  13.  
  14.  
  15. #include <MacTypes.h>  
  16. #include <QuickDraw.h> 
  17. #include <EventMgr.h>
  18. #include <DialogMgr.h>
  19. #include <FontMgr.h>
  20.  
  21. #include "standard.h" 
  22.  
  23.  
  24. #define zoomfixer 65536L
  25.  
  26. #define zoomsteps 16
  27.  
  28. Fixed zoomfract;
  29.  
  30. #define ctportstackelements 10 /*we can remember ports up to 10 levels deep*/
  31.  
  32. #define maxportstack 9 /*this is the highest valid index in the port stack*/
  33.  
  34. int topportstack;
  35.  
  36. GrafPtr portstack [ctportstackelements];
  37.     
  38. pushport (p) GrafPtr p; {
  39.  
  40.     if (topportstack < maxportstack) /*room left to push something*/
  41.     
  42.         portstack [topportstack++] = thePort;
  43.     
  44.     if (p != nil)
  45.         SetPort (p);
  46.     } /*pushport*/
  47.         
  48.  
  49. popport () {
  50.  
  51.     if (topportstack > 0)  /*there's something in the stack to pop*/
  52.     
  53.         SetPort (portstack [--topportstack]);
  54.     } /*popport*/
  55.             
  56.             
  57. localtoglobalrect (r) Rect *r; {
  58.  
  59.     Point p1, p2;
  60.  
  61.     p1 = topLeft (*r);
  62.     
  63.     p2 = botRight (*r);
  64.     
  65.     LocalToGlobal (&p1);
  66.     
  67.     LocalToGlobal (&p2);
  68.     
  69.     Pt2Rect (p1, p2 ,r);
  70.     } /*localtoglobalrect*/
  71.     
  72.  
  73. int blend (i1, i2) int i1, i2; {
  74.  
  75.     Fixed smallFix,bigFix,tempFix;
  76.  
  77.     smallFix = zoomfixer * i1;
  78.     
  79.     bigFix = zoomfixer * i2;
  80.     
  81.     tempFix = FixMul(zoomfract,bigFix)+FixMul(zoomfixer-zoomfract,smallFix);
  82.     
  83.     return(FixRound(tempFix));
  84.     } /*blend*/
  85.     
  86.  
  87. zoomrect (smallrect, bigrect, zoomup)
  88.  
  89.     Rect *smallrect,*bigrect;
  90.     boolean    zoomup;
  91.     
  92.     {
  93.     Fixed factor;
  94.     Rect rect1,rect2,rect3,rect4;
  95.     GrafPtr savePort,deskPort;
  96.     int i;
  97.     
  98.     GetPort (&savePort);
  99.     
  100.     OpenPort (deskPort = (GrafPtr) NewPtr (sizeof (GrafPort)));
  101.     
  102.     InitPort (deskPort);
  103.     
  104.     SetPort (deskPort);
  105.     
  106.     PenPat (gray);
  107.     
  108.     PenMode (notPatXor);
  109.     
  110.     if (zoomup) {
  111.     
  112.         rect1 = *smallrect;
  113.         
  114.         factor = FixRatio(6,5);
  115.         
  116.         zoomfract = FixRatio(541,10000);
  117.         }
  118.     else {
  119.         rect1 = *bigrect;
  120.         
  121.         factor = FixRatio(5,6);
  122.         
  123.         zoomfract = zoomfixer;
  124.         }
  125.         
  126.     rect2 = rect1;
  127.     
  128.     rect3 = rect1;
  129.     
  130.     FrameRect (&rect1);
  131.     
  132.     for (i = 1; i<= zoomsteps; i++) {
  133.     
  134.         rect4.left = blend (smallrect->left, bigrect->left);
  135.         
  136.         rect4.right = blend (smallrect->right, bigrect->right);
  137.         
  138.         rect4.top = blend (smallrect->top, bigrect->top);
  139.         
  140.         rect4.bottom = blend (smallrect->bottom, bigrect->bottom);
  141.         
  142.         FrameRect (&rect4);
  143.         
  144.         FrameRect (&rect1);
  145.         
  146.         rect1 = rect2;
  147.         
  148.         rect2 = rect3;
  149.         
  150.         rect3 = rect4;
  151.          
  152.         zoomfract = FixMul (zoomfract,factor);
  153.         } /*for*/
  154.         
  155.     FrameRect (&rect1);
  156.     
  157.     FrameRect (&rect2);
  158.     
  159.     FrameRect (&rect3);
  160.     
  161.     ClosePort (deskPort);
  162.     
  163.     DisposPtr ((Ptr)deskPort);
  164.     
  165.     PenNormal ();
  166.     
  167.     SetPort (savePort);
  168.     } /*zoomrect*/
  169.     
  170.     
  171. zoomport (w, flup) WindowPtr w; boolean flup; {
  172.  
  173.     /*
  174.     Zooms the window referenced by "w" either from an inivisible
  175.     state to a visible state, or vice versa.  Pass true in the "flup"
  176.     boolean parameter to zoom a window to open, an false to zoom
  177.     it close.  The WindowPtr must have already been created elsewhere,
  178.     and zooming the window invisible only hides the window, it does
  179.     not destroy the WindowPtr data.
  180.     */
  181.     
  182.     Rect r1, r2, r3;
  183.  
  184.     SetPort (w);
  185.     
  186.     SetRect (&r1, 0, 20, 0, 20);
  187.     
  188.     r3 = (*w).portRect;
  189.     
  190.     r2 = r3;
  191.     
  192.     InsetRect (&r2, (r3.right - r3.left + 20) / 2, (r3.bottom - r3.top + 20) / 2);
  193.  
  194.     localtoglobalrect (&r2);
  195.     
  196.     localtoglobalrect (&r3);
  197.  
  198.     if (flup) {
  199.     
  200.         zoomrect (&r1, &r2, true);
  201.         
  202.         zoomrect (&r2, &r3, true);
  203.         
  204.         ShowWindow (w);
  205.         
  206.         SetPort (w);
  207.         }
  208.     else {
  209.         HideWindow (w);
  210.         
  211.         zoomrect (&r2, &r3, false);
  212.         
  213.         zoomrect (&r1, &r2, false);
  214.         }
  215.     } /*zoomport*/
  216.     
  217.     
  218. positionaboutwindow (pdialog, rscreen) WindowPtr pdialog; Rect rscreen; {
  219.  
  220.     int h, v;
  221.     Rect rdialog;
  222.     
  223.     rdialog = (*pdialog).portRect;
  224.     
  225.     h = rscreen.left + (((rscreen.right - rscreen.left) - (rdialog.right - rdialog.left)) / 2);
  226.     
  227.     v = rscreen.top + (((rscreen.bottom - rscreen.top) - (rdialog.bottom - rdialog.top)) / 3);
  228.     
  229.     MoveWindow (pdialog, h, v, false);
  230.     } /*positionaboutwindow*/
  231.     
  232.     
  233. pascalcopy (bssource, bsdest) bigstring *bssource, *bsdest; {
  234.  
  235.     /*
  236.     create a copy of bssource in bsdest.
  237.     */
  238.  
  239.     register int i, len;
  240.     
  241.     for (i = 0; i <= (len = (*bssource) [0]);) 
  242.     
  243.         (*bsdest) [i] = (*bssource) [i++];
  244.     } /*pascalcopy*/
  245.  
  246.  
  247. #define doline(x)\
  248.                                                                             \
  249.     pascalcopy ((ptrstring) x, &bs);                                        \
  250.                                                                             \
  251.     MoveTo (r.left + (r.right - r.left - StringWidth (bs)) / 2, linev);        \
  252.                                                                             \
  253.     DrawString (bs);                                                        \
  254.                                                                             \
  255.     linev += lineinc;
  256.  
  257.  
  258. void drawabout (w) WindowPtr w; {
  259.     
  260.     bigstring bs;
  261.     Rect r;
  262.     int linev = 24;
  263.     int lineinc = 14;
  264.     int index;
  265.     Rect rtext;
  266.     
  267.     r = (*w).portRect;
  268.     
  269.     InsetRect (&r, 4, 4);
  270.     
  271.     TextFont (systemFont);
  272.     
  273.     TextSize (12);
  274.     
  275.     doline (line1);
  276.     
  277.     TextFont (geneva);
  278.     
  279.     TextSize (9);
  280.     
  281.     doline (line2);
  282.     
  283.     doline ("\p");
  284.     
  285.     doline (line3);
  286.     
  287.     doline (line4);
  288.     
  289.     pascalcopy ((ptrstring) line5, &bs);
  290.     
  291.     MoveTo (r.left + 4, r.bottom - 6);
  292.     
  293.     DrawString (bs);
  294.     
  295.     pascalcopy ((ptrstring) line6, &bs);
  296.     
  297.     MoveTo (r.right - StringWidth (bs) - 4, r.bottom - 6);
  298.     
  299.     DrawString (bs);
  300.     } /*drawabout*/
  301.  
  302.  
  303. void aboutcommand () {
  304.  
  305.     GrafPtr eventport;
  306.     Rect r;
  307.     EventRecord ev;
  308.     WindowPtr w;
  309.     boolean flbitmap;
  310.  
  311.     InitCursor ();
  312.     
  313.     SetRect (&r, 0, 0, 340, 120);
  314.     
  315.     pushport (w = NewWindow (nil, &r, "\p", false, altDBoxProc, -1L, false, 0));
  316.         
  317.     positionaboutwindow ((DialogPtr) w, screenBits.bounds);
  318.     
  319.     zoomport (w, true);
  320.     
  321.     drawabout (w);
  322.     
  323.     while (true){
  324.     
  325.         if (!GetNextEvent (everyEvent, &ev))
  326.             continue;
  327.  
  328.         SystemTask();
  329.             
  330.         switch (ev.what) {
  331.         
  332.             case keyDown:
  333.             case autoKey:
  334.             case mouseDown:            
  335.                 goto exit;
  336.                 
  337.             case updateEvt:    /*handle updates, he might be using Pyro!*/
  338.             
  339.                 if (StdEvent(&ev))    /* Check for stdio only events    */
  340.                     break;
  341.  
  342.                 if ((WindowPtr) (ev.message) == w) {
  343.                 
  344.                     pushport (w);
  345.                     
  346.                     BeginUpdate (w);
  347.                     
  348.                     drawabout (w);
  349.                     
  350.                     EndUpdate (w);
  351.                     
  352.                     popport ();
  353.                     }
  354.                                     
  355.                 break;
  356.  
  357.             default: 
  358.                 StdEvent(&ev); /* Check for stdio only events    */
  359.                 break;
  360.  
  361.             } /*switch*/
  362.         } /*while*/
  363.         
  364.     exit:
  365.     
  366.     HideWindow (w);
  367.     
  368.     zoomport (w, false);
  369.     
  370.     DisposeWindow (w);
  371.     
  372.     popport ();
  373.     
  374.     FlushEvents (mDownMask + keyDownMask, 0);
  375.     } /*aboutcommand*/
  376.